3 POKE 53280,0:POKE53281,0:PRINT"":E=45:POKE650,128
6 GOTO200
10 POKE53281,0:POKE53280,0:PRINT"[147]":F=40:K=15:TI$="000000":T=F/2-K:C=F/2-2
11 U=50
15 FORI=1TO250
18 PRINTTAB(T)"[191][191][191][191]";TAB(C)"[178]";TAB(T+K)"[191][191][191][191]"
20 O=RND(1)
21 IF O<0.5 AND T>2 THEN T=T-1
23 IF O>0.5 AND T+K<F-2 THEN T=T+1
26 GET R$
29 IF R$="Q" THEN U=U-10
30 IF R$="A" THEN C=C-1
31 IF R$="P" THEN U=U+20
32 IF R$="L" THEN C=C+1
33 IF T+K>32 THEN PRINT"[147]":T=5:C=10
40 IF C>T+K THEN 100
41 IF C=T AND I>5THEN 100
44 FORW=1TOU:NEXT:NEXTI
50 PRINT" DAS SCHWARZE LOCH LIEGT HINTER DIR
51 [153]"SYS DU HAST ES GESCHAFFT...
54 S$=RIGHT$(TI$,2):S=VAL(S$)
55 PRINT" IN "S" SEKUNDEN.
57 [129]I[178]1[164]3000:[130]:[137]1000
60 [151]198,0:[153]"LOADSYS NOCH EIN SPIEL (J/N) ? "
61 [161]Y$:[139]Y$[179][177]"J"[175]Y$[179][177]"N"[167]61
62 [139]Y$[178]"J"[167]200
65 [158]64738
100 [153]" DU BIST VERSCHWUNDEN IM NICHTS ..."
102 [129]I[178]1[164]3000:[130]:[137]60
200 [153]"LOAD VON TWINBYTE 8.2.1991"
201 [153]" FUER ALLE PUBLIC DOMAIN FANS  !!!"   
203 [153]" UND FUER DIE DIE KEINE ZEIT HABEN."
205 [153]" MORAL:"
207 [153]" DU BIST IN EIN SCHWARZES LOCH GE-"
209 [153]" FLOGEN. VERSUCHE NUN DEIN UFO HINAUS-"
210 [153]" ZUFLIEGEN..."
212 [153]" DU LENKST MIT DEN TASTEN:"
213 [153]" A=LINKS;L=RECHTS;Q=SCHNELL.;P=LANGSAM"
215 [153]" VIEL GLUECK...!"
220 [153][166]30)"-TASTE-"
223 [161]S$:[139]S$[178]""[167] 223
224 [153][166]1)"LOAD BESTZEIT "E" SEKUNDEN""
250 FORT=1TO1000:NEXT:GOTO10
1000 REM REKORD
1002 IF S<E THEN PRINT" NEUER [158]REKORD...":E=S:GOTO2000
1003 PRINT" DEN REKORD SCHAFFST DU NIE !!!"
1005 FORI=1TO3000:NEXT:GOTO60
2000 PRINT" DER NEUE HIGHSCORE IST "E" SEKUNDEN."
2002 FORI=1TO2000:NEXT:GOTO60